home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / comp / btoi.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  498 b   |  25 lines
  1. /*
  2.                                 B T O I . C
  3. */
  4.  
  5. #include "iccomp.h"
  6.  
  7. void btoi(e)
  8.     ESTRUC_
  9.         *e;
  10. {
  11.     if (!test_type(e, e_bool))              /* no batchpatching needed */
  12.         return;
  13.  
  14.     patchup_true(e, 1);
  15.     e->truelen = 0;
  16.  
  17.     gencode(e, op_push_1_jmp_end);          /* truelist target */
  18.  
  19.     patchup_false(e, 1);
  20.     e->falselen = 0;
  21.  
  22.     gencode(e, op_push_0);                  /* falselist target */
  23.  
  24.     set_type(e, e_int | e_code);            /* set int code type */
  25. }